home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor1 / cube.src < prev    next >
Text File  |  1991-05-29  |  4KB  |  82 lines

  1. %%HP: T(3)A(D)F(.);
  2. @ CUBE, by Paul Lancaster
  3. DIR
  4.   CUBE
  5.     \<< " A B C D" DUP 'M' STO
  6.         " E F G H" DUP 'T' STO
  7.         " I J K L" DUP 'W' STO
  8.         " M N O P" DUP 'F' STO 1 15
  9.       START RAND 8 * CEIL
  10.         CASE DUP 1 ==
  11.           THEN DROP ONE
  12.           END DUP 2 ==
  13.           THEN DROP TWO
  14.           END DUP 3 ==
  15.           THEN DROP TRE
  16.           END DUP 4 ==
  17.           THEN DROP FOUR
  18.           END DUP 5 ==
  19.           THEN DROP FIVE
  20.           END DUP 6 ==
  21.           THEN DROP SIX
  22.           END DUP 7 ==
  23.           THEN DROP SEVN
  24.           END DROP EIGT
  25.         END
  26.       NEXT { ONE TWO TRE FOUR FIVE SIX TRE FOUR FIVE SIX SEVN EIGT } MENU
  27.     \>>
  28.   HELP
  29.     \<< INST.GR PICT STO { } PVIEW
  30.     \>>
  31.   ONE
  32.     \<< F 3 8 SUB F 1 2 SUB + 'F' STO 4 DROPN M T W F
  33.     \>>
  34.   TWO
  35.     \<< W 3 8 SUB W 1 2 SUB + 'W' STO 4 DROPN M T W F
  36.     \>>
  37.   TRE
  38.     \<< T 3 8 SUB T 1 2 SUB + 'T' STO 4 DROPN M T W F
  39.     \>>
  40.   FOUR
  41.     \<< M 3 8 SUB M 1 2 SUB + 'M' STO 4 DROPN M T W F
  42.     \>>
  43.   FIVE
  44.     \<< C1 B 1 2 SUB A 3 8 SUB + 'M' STO
  45.         C 1 2 SUB B 3 8 SUB + 'T' STO
  46.         D 1 2 SUB C 3 8 SUB + 'W' STO
  47.         A 1 2 SUB D 3 8 SUB + 'F' STO 4 DROPN M T W F
  48.     \>>
  49.   SIX
  50.     \<< C1 A 1 2 SUB B 3 4 SUB + A 5 8 SUB + 'M' STO
  51.         B 1 2 SUB C 3 4 SUB + B 5 8 SUB + 'T' STO
  52.         C 1 2 SUB D 3 4 SUB + C 5 8 SUB + 'W' STO
  53.         D 1 2 SUB A 3 4 SUB + D 5 8 SUB + 'F' STO 4 DROPN M T W F
  54.     \>>
  55.   SEVN
  56.     \<< C1 A 1 4 SUB B 5 6 SUB + A 7 8 SUB + 'M' STO
  57.         B 1 4 SUB C 5 6 SUB + B 7 8 SUB + 'T' STO
  58.         C 1 4 SUB D 5 6 SUB + C 7 8 SUB + 'W' STO
  59.         D 1 4 SUB A 5 6 SUB + D 7 8 SUB + 'F' STO 4 DROPN M T W F
  60.     \>>
  61.   EIGT
  62.     \<< C1 A 1 6 SUB B 7 8 SUB + 'M' STO
  63.         B 1 6 SUB C 7 8 SUB + 'T' STO
  64.         C 1 6 SUB D 7 8 SUB + 'W' STO
  65.         D 1 6 SUB A 7 8 SUB + 'F' STO 4 DROPN M T W F
  66.     \>>
  67.   C1
  68.     \<< M 'A' STO T 'B' STO W 'C' STO F 'D' STO
  69.     \>>
  70.   CST 0
  71.   INST.GR
  72. GROB 131 64 0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000757065370E42A3892830242998DDD000002510155101A6B08A28202A654584410000277015370DEAA38118302EE5C98CD000002510155109A2A08218002AA54194410000257067370EA2A3811880EA295D8C510000000000000000000000000000000000000020505050375057507570520BB993B3000050502050555055505520D288AAA801000070707070352025507520D388A99B010000504020405550255015205388AAA801000050405040375027701720520BBAA331000000000000000000000000000000000000007337303505652701D5A28475600000000055515055051DA00B5CA28215100000000053573032052DB605DDB281722000000000555150520545B40154B2821240000000007537503207352701D5A38472310000000000000000000000000000000000000000009EA02A220E42D1CDD1CD18D545490E600052A02A2204AA4084514504454D6B0AA0003E40AA2204E6C184D14D1445455F0A600052406B2204AA408450450445454D0AA0009E402AEE04A2D18C50C508DDD5490EA00000000000000000000000000000000000003670770371184A188EAE0EE0EAE0E2D000212051055114DA28DAA204A04A2026510022205703551CDB28AAAE04A04EE0EE5100242051055B145B288A4204A04A202A51007320710571145A188E4E04E04AE0E2D00000000000000000000000000000000000000000075D1855067590E2770000000000000000015504450115B02A020000000000000000075D18420275F0EA620000000000000000019400550412D02A420000000000000000019C1C45037290E2720000000000000000000000000000000000000000000000775300200003000600030000000000000015550050000500010005000000000000007553707000030001000500000000000000155500500005000100050000000000000017750050000300060003000000000000000000000000000000000000000000000000737000700007000E000A000000000000002510001000010001000A00000000000000237770700007000D000E000000000000002510001000010009000A00000000000000257000700001000E000A00000000000000000000000000000000000000000000000071D10040000400090002000000000000002151004000040005000200000000000000255DD140000400030002000000000000002B5100400005000500020000000000000021D1004000070009000E00000000000000000000000000000000000000000000000079E00022008400070007000000000000005B200063008500050005000000000000005FEEE0A2008700050007000000000000005D2000220086000500010000000000000079E00022008400070001000000000000000000000000000000000000000000000000
  73.   M 0
  74.   T 0
  75.   W 0
  76.   F 0
  77.   D 0
  78.   C 0
  79.   B 0
  80.   A 0
  81. END
  82.